home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00086_Script_vaiUniversos < prev    next >
Text File  |  1999-03-19  |  3KB  |  91 lines
  1. on vaiUniversos arqNum
  2.   if arqNum = 0 then
  3.     go frame "Universos"
  4.   else
  5.     set arqNum = 1
  6.     -- Empilha pagina visitada
  7.     empilhaArq arqNum
  8.     
  9.     sendSprite(120, #comecaAnima)
  10.     
  11.     case arqNum of
  12.       1: set tmp =  "UniWars"
  13.       2: set tmp =  "UniTrek"
  14.       3: set tmp =  "UniMarvel"
  15.       4: set tmp =  "UniDC"
  16.       5: set tmp =  "UniStreet"
  17.       6: set tmp =  "UniUltra"
  18.       7: set tmp =  "UniBras"
  19.     end case
  20.     set frm = marker(tmp)
  21.     --    put frm & ": " & tmp
  22.     preLoad frm, frm
  23.     go frame frm
  24.     updateStage
  25.     
  26.     -- Inicializa links
  27.     global gLinks
  28.     global gLinksCount, gLinksTable, gLinksDest, gLinksTitle
  29.     mSetCriteria(gLinks,"arqNum","=",arqNum)
  30.     mSelect(gLinks)
  31.     set gLinksCount = mSelectCount(gLinks)
  32.     set gLinksTable = []
  33.     set gLinksDest = []
  34.     set gLinksTitle = []
  35.     
  36.     if gLinksCount > 0 then
  37.       set links = gLinksCount
  38.       set gLinksCount = 0
  39.       repeat with i = 1 to links
  40.         
  41.         if i mod 10 = 1 then sendSprite(120,#idleClaquete)
  42.         
  43.         -- Le registro de link
  44.         set mNum = mGetField(gLinks, "mediaNum")
  45.         set sNum = mGetField(gLinks, "subtitNum")
  46.         set pNum = mGetField(gLinks, "palNum")
  47.         set destArq = mGetField(gLinks,"destArq")        
  48.         
  49.         -- Coloca registro na tabela
  50.         set tmp = String(mNum) & "," & String(sNum) & "," &¼
  51.                   String(pNum)
  52.         add gLinksTable, tmp
  53.         add gLinksDest, destArq
  54.         mGoNext(gLinks)
  55.         
  56.       end repeat    
  57.     end if
  58.     
  59.     if arqNum = 7 then
  60.       mSetCriteria(gLinks,"arqNum","=",8)
  61.       mSelect(gLinks)
  62.       set gLinksCount = mSelectCount(gLinks)
  63.       
  64.       if gLinksCount > 0 then
  65.         set links = gLinksCount
  66.         set gLinksCount = 0
  67.         repeat with i = 1 to links
  68.           
  69.           if i mod 10 = 1 then sendSprite(120,#idleClaquete)
  70.           
  71.           -- Le registro de link
  72.           set mNum = 2
  73.           set sNum = 0
  74.           set pNum = mGetField(gLinks, "palNum")
  75.           set destArq = mGetField(gLinks,"destArq")        
  76.           
  77.           -- Coloca registro na tabela
  78.           set tmp = String(mNum) & "," & String(sNum) & "," &¼
  79.                   String(pNum)
  80.           add gLinksTable, tmp
  81.           add gLinksDest, destArq
  82.           mGoNext(gLinks)
  83.           
  84.         end repeat    
  85.       end if
  86.     end if
  87.     
  88.     sendSprite(120,#finalizaAnima)
  89.     updateStage
  90.   end if
  91. end